home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / comm / tcp / finger.lha / Finger.amirx next >
Text File  |  1998-02-07  |  1KB  |  44 lines

  1. /* $VER: Finger.amirx 1.2 (6/2/98) ©1998 Robin Cloutman
  2. ** requires AmIRC, Miami, and rexxdossupport.library
  3. ** Performs a finger on a nick/nick@url, with optional channel output
  4. */
  5. IF ~SHOW(L,'rexxsupport.library') THEN ADDLIB('rexxsupport.library',0,-30,0)
  6. IF ~SHOW(L,'rexxdossupport.library') THEN ADDLIB('rexxdossupport.library',0,-30,2)
  7. OPTIONS RESULTS
  8. PARSE ARG ARGS
  9. NAME="Finger"
  10. TEMPLATE="URL/A,SAY/S,SHOW/K"
  11. READARGS(ARGS,TEMPLATE)
  12. IF(URL="?") THEN DO;CECHO("Usage:" TEMPLATE);EXIT;END
  13. IF(POS(".",URL)=0) THEN DO
  14.     "USERHOST" url
  15.     PARSE VAR RESULT URL
  16.     IF(URL="") THEN DO
  17.         CECHO("Unknown nick")
  18.         EXIT
  19.     END
  20. END
  21. FILENAME="PIPE:" || NAME || RANDOM(0,1000,TIME("S"))
  22. ADDRESS COMMAND "RUN Miami:MiamiFinger" URL ">" || FILENAME
  23. CALL OPEN(FILE,FILENAME,"READ")
  24. DO UNTIL EOF(FILE)
  25.     TEMP=READLN(FILE)
  26.     IF(TEMP~="") THEN CECHO(TEMP)
  27. END
  28. CLOSE(FILE)
  29. EXIT
  30.  
  31. CECHO:
  32. IF(SAY) THEN DO
  33.     IF(LASTTIME=TIME("S")) THEN CALL DELAY(25)
  34.     "SAY" '02'x || "«" || NAME || "»" || '02'x ARG(1)
  35.     LASTTIME=TIME("S")
  36. END
  37. ELSE IF(SHOW~="SHOW") THEN DO
  38.     IF(LASTTIME=TIME("S")) THEN CALL DELAY(25)
  39.     "SAY /msg" SHOW '02'x || "«" || NAME || "»" || '02'x ARG(1)
  40.     LASTTIME=TIME("S")
  41. END
  42. ELSE "ECHO P="d2c(27)"b«" || NAME || "» C=3" ARG(1)
  43. RETURN 0
  44.